home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / banner.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.4 KB  |  92 lines
  1. 10  CLS:KEY OFF
  2. 20  REM PROGRAM BY TOM KELLY TO PLOT WORDS ON TELETYPE
  3. 30  REM *************************10/24/75*****************************
  4. 40  DIM M(60,6),P(15)
  5. 50  PRINT TAB(30) "BANNER PRINTER"
  6. 60  PRINT "SIZE  (1-7)";
  7. 70  INPUT Z
  8. 80  PRINT "WHAT'S YOUR MESSAGE";
  9. 90  INPUT B$
  10. 100  PRINT 
  11. 110  PRINT "METHOD (1 OR 2)";
  12. 120  INPUT A
  13. 130  IF A<>2 THEN 160
  14. 140  PRINT " INPUT 2 OF YOUR CHARACTERS";
  15. 150  INPUT C$
  16. 160  PRINT:A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789<>=#+-*/\()[].,;:!"
  17. 170  A$=A$+"?&$%":REM "&" GIVES QUOTE
  18. 180  FOR N=1 TO 60: FOR N1=1 TO 6:READ M(N,N1):NEXT N1,N
  19. 190  FOR I=1 TO 9
  20. 200  LET T(I)=2^(I)-1
  21. 210  NEXT I
  22. 220  FOR I=1 TO LEN(B$)
  23. 230  FOR J=1 TO 60
  24. 240  IF MID$(A$,J,1)<>MID$(B$,I,1) THEN 270
  25. 250  F=J
  26. 260  GOTO 280
  27. 270  NEXT J
  28. 280  FOR K=1 TO 6
  29. 290  LET X=M(F,K)
  30. 300  IF X=0 THEN 570
  31. 310  FOR Q=1 TO 9
  32. 320  IF T(Q)<X THEN 350
  33. 330  LET Y=Q
  34. 340  GOTO 360
  35. 350  NEXT Q
  36. 360  FOR L=1 TO 9
  37. 370  LET P(L)=X-2*INT(X/2)
  38. 380  LET X=INT(X/2)
  39. 390  NEXT L
  40. 400  FOR M=1 TO Z
  41. 410  FOR O=1 TO Y
  42. 420  IF P(O)=0 THEN 500
  43. 430  FOR Z1=1 TO Z
  44. 440  ON A GOTO 450,470
  45. 450  LPRINT MID$(B$,I,1)MID$(B$,I,1);
  46. 460  GOTO 480
  47. 470  LPRINT C$;
  48. 480  NEXT Z1
  49. 490  GOTO 530
  50. 500  FOR Z2=1 TO Z
  51. 510  LPRINT "  ";
  52. 520  NEXT Z2
  53. 530  NEXT O
  54. 540  LPRINT
  55. 550  NEXT M
  56. 560  GOTO 590
  57. 570  LPRINT
  58. 580  LPRINT
  59. 590  NEXT K
  60. 600  NEXT I
  61. 610  LPRINT :LPRINT
  62. 620  DATA 511,264,264,264,511,0,511,273,273,273,238,0
  63. 630  DATA 511,257,257,257,387,0,511,257,257,257,254,0
  64. 640  DATA 511,273,273,273,257,0,511,272,272,256,256,0
  65. 650  DATA 511,257,273,273,415,0,511,16,16,16,511,0
  66. 660  DATA 0,257,511,257,0,0,3,1,1,1,511,0
  67. 670  DATA 511,16,40,68,387,0,511,1,1,1,1,0
  68. 680  DATA 511,96,24,96,511,0,511,96,24,6,511,0
  69. 690  DATA 511,257,257,257,511,0,511,272,272,272,496,0
  70. 700  DATA 511,257,261,259,511,0,511,272,272,272,239,0
  71. 710  DATA 499,273,273,273,415,0,256,256,511,256,256,0
  72. 720  DATA 510,1,1,1,510,0,496,12,3,12,496,0
  73. 730  DATA 511,12,48,12,511,0,387,204,48,204,387,0
  74. 740  DATA 384,96,31,96,384,0,259,269,313,353,385,0,0,0,0,0,0,0
  75. 750  DATA 511,263,313,449,511,0,0,129,511,1,0,0
  76. 760  DATA 391,265,281,273,225,0,387,273,273,273,495,0
  77. 770  DATA 496,16,16,16,511,0,499,273,273,273,270,0
  78. 780  DATA 511,273,273,273,415,0,384,263,280,352,384,0
  79. 790  DATA 238,273,273,273,238,0,499,273,273,273,511,0
  80. 800  DATA 16,40,40,68,68,0,68,68,40,40,16,0
  81. 810  DATA 40,40,40,40,40,0,40,124,40,124,40,0
  82. 820  DATA 16,16,124,16,16,0,16,16,16,16,16,0,68,40,254,40,68,0
  83. 830  DATA 3,14,56,224,384,0,384,224,56,14,3,0
  84. 840  DATA 0,56,198,387,257,0,257,387,198,56,0,0
  85. 850  DATA 0,511,257,257,0,0,0,257,257,511,0,0
  86. 860  DATA 0,0,1,1,0,0,0,0,2,3,0,0
  87. 870  DATA 0,0,130,131,0,0,0,0,130,130,0,0
  88. 880  DATA 0,0,509,509,0,0,128,256,269,285,224,0
  89. 890  DATA 0,448,0,448,0,0,0,0,448,0,0,0
  90. 900  DATA 499,273,511,273,415,0,387,398,312,483,487,0
  91. 910  WAIT 0,1,1:END
  92.